(sgml-validate): Offer to save the buffer first.

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 3b8af26750ba1850d77da49d6136bd0b235413f1..ef3f822cfb2b13fc1db75f60c0cfb1d91e4f82c6 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -712,6 +712,9 @@ and move to the line in the SGML document that caused it."
                                    (and name
                                         (file-name-nondirectory name))))))))
   (setq sgml-saved-validate-command command)
+  (if (or (not compilation-ask-about-save)
+         (y-or-n-p (message "Save buffer %s? " (buffer-name))))
+      (save-buffer))
   (compile-internal command "No more errors"))